﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities


Partial Class menuCliente
    Inherits System.Web.UI.UserControl

    Dim errores As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Hacemos una referencia a la clase
        Dim capanegocios As New ServicioBL

        Try
            'Invocamos al método MostrarVisitas definido previamente en la clase
            gvcategorias.DataSource = capanegocios.ListarTipoServicios
            gvcategorias.DataBind()

        Catch ex As Exception
            errores = capanegocios.ChapaError

            Response.Redirect("Errores.aspx?id=" & errores)

        Finally
            'Liberamos recursos
            capanegocios = Nothing

        End Try

    End Sub


    Sub ConseguirCriterio(ByVal Src As Object, ByVal Args As EventArgs) Handles btnBuscar.Click
        Response.Redirect("BuscarServicios.aspx?Criterio=" & txtcriterio.Text)
    End Sub

End Class
